
IF Windows
  SetTopLineTo INSTALLING WORDPERFECT 6.0 FOR WINDOWS DEMO (Press Esc to exit)
  If FreeSpaceOnDrive ShadowDirectory < 30000
      PopUp There is insufficient space on the TEMP drive for installation.
      SoLong
  EndIf
  SetBackgroundColor 0 0 255 0 0 64 TopToBottom
  SetDefaultBitmap OFF
  ShowWindow Maximized
Dialog
Beginning the WordPerfect 6.0 for Windows Demo Installation.
Click OK or press ENTER to continue.
EndDialog
QueAllFiles
 DetermineInstallationDrive QueSize RequireFixed
 DetermineInstallationDirectory InstallationDrive:\WW60DEMO QueSize RequireFixed
  GetQuedFiles
    Dialog [YesOrNo1]
      Would you like to place the demo in a Windows program group?
    EndDialog
    If [YesOrNo1] = Y
       BuildProgramGroup "WPWin 6.0 Demo" WPW6.grp
       [InstallationDirectory]\Demo.exe "WPWin 6.0 Demo" [InstallationDirectory]
       EndBuildProgramGroup
    Else
       Dialog PressAKey WhiteOnBrown
To run the demo, choose Run from the File Menu and execute DEMO.EXE.
Click OK or press ENTER to continue.
      EndDialog
    EndIf
    Dialog PressAKey WhiteOnBrown

WordPerfect 6.0 for Windows Demonstration
Installation Completed.
Click OK or press ENTER to continue.

    EndDialog
Else

TextBox YellowOnCyan @xy(12,2)
   WordPerfect 6.0 for Windows Demo Installation
 EndTextBox
Dialog
  .cBeginning the WordPerfect 6.0 for Windows Demo.
EndDialog

QueAllFiles
 DetermineInstallationDrive QueSize RequireFixed
 DetermineInstallationDirectory InstallationDrive:\WW60DEMO QueSize RequireFixed
GetQuedFiles
    SetScreenAttrTo BlackOnBlack
    ClearScreen
    OSCommand InstallationDrive: NoPrompt
    OSCommand CD [InstallationDirectory] NoPrompt
    Run DEMO.exe SwapOut NoPrompt
EndIF
SoLong
EndScript
